Solaris Press Kit/Solaris Press Kit.iso/mac/Media/Solaris.dxr/Internal_24_exit.ls

Text File | 2002-10-23 | 434 b | 18 lines

on mouseUp
  alertObj = new(xtra("MUI"))
  alertInitList = [#Buttons: #YesNo, #title: "Quit Confirmation", #Message: "Are you sure you want to quit?", #movable: 0, #default: 6, #Icon: #question]
  if objectp(alertObj) then
    result = alert(alertObj, alertInitList)
    case result of
      1:
        go("exit")
      2:
        nothing()
      otherwise:
        nothing()
    end case
  else
    alert("No MUI Xtra")
  end if
end